home *** CD-ROM | disk | FTP | other *** search
/ FishMarket 1.0 / FishMarket v1.0.iso / fishies / 126-150 / disk_147 / sys / prime / prime.zoo / spawn.c < prev    next >
C/C++ Source or Header  |  1988-07-25  |  472b  |  25 lines
  1. /*
  2.  * prime spawn.c for micrognuemacs
  3.  */
  4. #include       "def.h"
  5.  
  6. spawncli(f, n)
  7. {
  8.        fortran void comlv$();
  9.        ttcolor(CTEXT);
  10.        ttnowindow();
  11.        ttmove(nrow-1, 0);
  12.        if (epresf != FALSE) {
  13.            tteeol();
  14.            epresf = FALSE;
  15.        }
  16.        ttclose();
  17.        comlv$();
  18.        sgarbf = TRUE;        /* Force repaint.    */
  19.        ttopen();
  20. #ifndef NO_DIR
  21.        (void) dirinit();    /* current directory may have changed */
  22. #endif
  23.        return (TRUE);
  24. }
  25.